unit ConfUsoRel;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, TeEngine, Series, ExtCtrls, TeeProcs, Chart, DbChart, Grids,
  DBGrids, DBTables;

type
  TFFConfUsoRel = class(TForm)
    QRelatorioxUso: TQuery;
    dsRelatorioXUso: TDataSource;
    dbgRelatoriosXUsu: TDBGrid;
    QRelatorioxUsoCONF_REL_DESCRICAO: TStringField;
    QRelatorioxUsoCOUNT: TIntegerField;
    DBChart1: TDBChart;
    Series1: TBarSeries;
    QUsoPorMes: TQuery;
    DataSource1: TDataSource;
    QUsoPorMesCONF_REL_DESCRICAO: TStringField;
    QUsoPorMesCOUNT: TIntegerField;
    QUsoPorMesMES: TSmallintField;
    QRelatorioxUsoCONF_FORM_NAME: TStringField;
    procedure dsRelatorioXUsoDataChange(Sender: TObject; Field: TField);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FFConfUsoRel: TFFConfUsoRel;

implementation

uses UGestao, UGeral;

{$R *.dfm}

procedure TFFConfUsoRel.dsRelatorioXUsoDataChange(Sender: TObject;
  Field: TField);
begin

  QUsoPorMes.Close;
  QUsoPorMes.Open;

end;

end.
